#!/usr/bin/perl
package ATest;
use warnings;
use strict;
use Utils;
use Exporter qw(import);
our @EXPORT=qw(atest_timestamp log fail pass);

sub atest_timestamp{
  my $timestamp=`date +'%Y_%m_%d_%H.%M.%S'`;
  chomp($timestamp);
  $timestamp;
}

sub log{
  my($txt,$log_file)=@_;
  warn "log file saved to $log_file" if ($log_file =~ m[/tmp/]);
#   my ($package, $filename, $line) = caller;
#   print "$package, $filename, $line\n";
  utils_log($txt,$log_file);
}

sub fail {
1;
}

sub pass {
1;
}

1;